home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 2-Graphics / Apple Graphics Source / Graphics Database Lists / Graphics Database Lists / card_5817.txt < prev    next >
Text File  |  1990-02-26  |  1KB  |  44 lines
  1. -- card: 5817 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 5187
  5. -- name: print TN/Even
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=0 top=0 right=34 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: List
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global listSelected, lineClicked
  23.   put clickLine() into lineClicked
  24.   -- determine how many lines are hidden above
  25.   put (the scroll of me / textHeight of me) into linesAbove
  26.   -- add that number to the relative position clicked
  27.   add linesAbove to lineClicked
  28.   -- userLevel must be set to 4 or 5 for select to work
  29.   put userLevel into tempUserLevel
  30.   set userLevel to 5
  31.   select line lineClicked of card field "list Index"
  32.   put tempUserLevel into userLevel
  33.   if the selection is empty
  34.   then
  35.   exit mouseUp
  36. end if
  37. put the selection into listSelected
  38. end mouseUp
  39.  
  40.  
  41. -- part contents for card part 3
  42. ----- text -----
  43.  12. | none
  44.      | File Server PICT